|
Rund um Autocad : UMBENENN
joern bosse am 25.11.2005 um 10:32 Uhr (0)
Hallo Helmut,vielleicht hilft Dir das folgende LISP:aufrufen mit "la_umb" - Bei der Eingabe der Teilstring ist Groß und Kleinschreibung zu beachten- der zu ersetzenden Teilstring darf nur einmal im Layernamen vorkommen, sonst wird nur der erste gefundenen Teilstring umbenanntCode:(defun c:la_umb (/ alt neu neu Layer Lalist n) (setq alt (getstring "
umzubenennender Teilstring:") neu (getstring "
euer Teilstring:")) (setq Layer (cdr (assoc 2 (tblnext "LAYER" T)))) (while Layer (if (wcmatch Layer (strcat "* ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : alle Attribute eines Blockes verschieben
joern bosse am 06.08.2008 um 10:55 Uhr (0)
Hallo Jan,versuche es mal mit folgendem LISP (nur im WKS und es werden nur die GC 10s der Attribute berücksichtigt), kannst ja noch ein bißchen zurechtbasteln.Code:(defun c:attmove ( / A ATT_LISTE OBJ PKT1 PKT2) (if (and(setq obj (car (entsel "
Bitte Block auswählen:"))) (=(cdr(assoc 0 (entget obj)))"INSERT") (setq att_liste(attmove:att obj)) (setq pkt1 (getpoint "
Verschieben von Punkt:")) (setq pkt2 (getpoint pkt1 "
Verschieben nach Punkt:"))) (progn (mapcar (lambda(A) (entmod (subst (cons 10 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp laden
joern bosse am 05.12.2007 um 08:29 Uhr (0)
Hallo Bob,Füge über Extras=Optionen Registerkarte "Dateien" einen Supportpfad zu diesem Verzeichnis hinzu, oder kopiere die beiden Dateien auf einen bereis vorhandenen Supportpfad.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
joern bosse am 23.02.2008 um 06:57 Uhr (0)
Hallo Andi,Zitat aus der Datei Fläche.txt:"Sollten Fehler auftreten, bitte melden unter edietrich@i-one.at."Hast Du Ernst schon kontaktiert?------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp laden
joern bosse am 05.12.2007 um 08:47 Uhr (0)
Hallo Bob,na das weiß ich auch nicht, entweder war vielleicht keine zugehörige dcl-Datei vorhanden, oder diese hat sich zufälligerweise auf einem anderen Supportpfad von ACAD befunden.Wenn Du nicht weißt, ob eine Datei in AutoCAD gefunden wird kannst Du das mit folgender Eingabe testen:(findfile "test.dcl") =ENTERWenn die Datei auf einem Supportpfad liegt wird der Pfad angezeigt, wenn sie nicht gefunden wurde wird ein "nil" zurückgegeben.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Änderung in LISP-Code
joern bosse am 14.07.2010 um 08:44 Uhr (0)
Hallo Mercato,da kann ich Dorfys Antwort nur bestätigen, der Aufwand ist doch recht hoch.Aber wenn Du noch eine Böschungsschraffur ausprobieren willst, bei den Bosse_tools http://www.bosse-engineering.com/bosse_tools/index.htm ist eine Schraffenprogramm enthalten, das kannst Du für 30-Tage nutzen, vielleicht reicht das ja schon für Deine Aufgabestellung. Detailfragen bitte direkt an mich, denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
joern bosse am 24.02.2008 um 20:26 Uhr (0)
Hallo Andi, Zitat:Ein gutes Programm währe das von Archtools2004, das kostet aber 200.- + MwSt.(Es kann aber auch viel mehr)Was sind denn 200,- EUR, wenn Du mit dem Programm dann schnell zu Deinem Ziel kommst. Wieviel Zeit hast Du jetzt schon damit verbracht Dich mit dem Tool von Ernst auseinanderzusetzen, und am Ende ist es dann doch nicht genau das, was Du brauchtst.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Block im Block
joern bosse am 30.05.2005 um 17:27 Uhr (0)
Für Variante 1 habe ich das LISP geändert (Zeile 25, 27, 73 und 75) Es wird jetzt an den Layernamen für das Attribut "_ATT" hinten angehängt, vergleiche es eifach mal mit der anderen LISP-Datei. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 31.01.2005 um 18:23 Uhr (0)
Hallo Matthias, daß Deine Zeichnung größer wird ist klar, die Layerbezeichnungen sind ja auch länger geworden und dementsprechend muß mehr gespeichert werden, das hat nichts mit der LISP-Datei zu tun. Das Du mehr Layer bekommen hast kann ich nicht nachvollziehen, ich habe in der Zeichnung von der Konvertierung 40 Layer + den Layer 0 und nach der Konvertierung ebenfalls. Ich schicke Dir die Layer der beiden Zeichnungen als txt.-Dateien mit. Die TXT-Datei, die Du mir gesendet hast habe ich nicht in eine L ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : negatives abrunden
joern bosse am 09.07.2011 um 10:08 Uhr (0)
Hallo Cad4Fun,anbei ein kleines LISP, funktioniert aber nur mit LW-Polylinien. Du erzeugts zu Beginn nach außen gerichtetete Abrundungen, dann läßt Du das LISP drüber laufen.Code:(defun c:negBogen ( / A OBJ) (if (and(setq obj(car (entsel "
Bitte eine LW-Polylinie auswählen:"))) (=(cdr(assoc 0 (entget obj)))"LWPOLYLINE")) (entmod (mapcar (lambda(A) (if (=(car A)42) (cons 42 (* -1.0(cdr A))) A))(entge ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 09:12 Uhr (0)
Hallo nochmal, Jetzt muß ich nochmal nachfragen. Du sagst Du willst einen Punkt in einem betimmtem Abstand von einer Linie, meinetwegen auch Polyline mit einem Abstandsmaß absetzen? OK. Aber ich bin der Meinung, daß auch die Station auf der Linie bekannt sein muß, sonst ist die Lage des abzusetzenden Punktes nicht eindeutig bestimmt. Bei meiner LISP-Routine wird folgendermaßen abgefragt: starten von LISP-routine zeigen des objektes(die gezeigte seite bestimmt, von welchem ende aus gemessen wird) gib den 1 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Koordinaten
joern bosse am 26.01.2005 um 12:43 Uhr (0)
Hallo Schlotti, Du mußt die *.dcl Datei in einen ACAD-Supportpfad kopieren, damit die Lisp-Routine diese finden kann. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 28.01.2005 um 16:02 Uhr (0)
Hallo Matthias, Du brauchst gar nicht weiter zu probieren, es waren noch ein paar kleine Fehler in der LISP-Datei. Ich schicke Sie nochmals korrigiert mit und auch die DWG-DAtei mit den umbenannten Layern, aber wie gesagt, die Prüfung der Layer liegt bei Dir. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
